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Abstract 

The advantages of mixed approach with using different kind of pro- 
gramming techniques for symbolic manipulation are discussed. This 
type of programming environment now is in development. The work is 
stimulated by the necessity of managing complicated algebraic expres- 
sions and formulae of noncommutative geometry related with HENP. 

Functional languages are convenient for representation and manip- 
ulation of symbolic data. From the other hand, it is convenient to use 
special "shell" around the functional language to make programming 
more transparent. 

The main purpose of approach offered is merge the methods of 
object oriented programming that convenient for presentation data 
and algorithms for user with advantages of functional languages for 
data manipulation, internal presentation, and portability of software. 
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1 Introduction 



We can consider two different approaches to computer algebra. On the one 
hand, it may be application of usual programming techniques to specific tasks 
and it is not essential to determine the particular programming language we 
are to use. The main problem here is to express the task by usual simple 
data types and operations. For example, we can express monomials like 
x\x l 2 k y\ m y2 n ~ m those form (7/2, n/2) representation of Lorentz group by 



using data "register" with four numbers like | k I m n\ . Multiplication 
of the monomials is addition of the registers, complex conjugation is swapping 
of left and right parts, etc. . If we work with more complicated structures, 
the "advanced" properties of programming language can be more useful. 

One of such properties is the constructive conception of data types as some 
preliminary information about data accessible for translator and possibility 
to construct new data types and data structures in addition to basic types 

Q- 

Other properties are discussed further. An object oriented Pascal-like 
language with some functional objects is used for the demonstration of pos- 
sible synthesis of object oriented and functional programming. It is called 
here and is used in examples. 



2 Object Oriented Programming (OOP) 

The OOP languages are successfully used in modern computer science. Let 
us consider standard of C++ or some version of Object Pascal [§. 

The object oriented style supposes some principles of decomposition of 
complicated tasks: 

• The basic structure is an object. The object encloses not only data 
fields, but methods (procedures, functions) for manipulation with these 
data. 

• An object can be defined as descendant of some other object. The 
object inherits all fields and methods of ancestor. 

• Descendant objects can be used anywhere as parameters of functions 
or right part of assignment operator instead of ancestor. 
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An analogy of OOP with language of mathematics should be mentioned. 
It is useful for applications to computer algebra. For example we can define 
object Group with two methods: 

Group = Object; 

function infix +(A,B : Group) : Group; 
{ C++ version: friend Group operator + (Group, Group) }[] 

function prefix —(A : Group) : Group; 
end ; { Group } 

It is possible to define Algebra = Object (Group) with new multiplicative 
operation V, Complex numbers, Dirac algebra etc. . Due to properties of 
OOP it possible to use function '+' for any descendant of object Group and 
both functions '+' for any descendant of Algebra. The methods like 
can be different for all descendant objects, but expression like A* B invokes 
necessary algorithm for particular objects A and B due to standard principles 
of OOP. In the C++ the operator* can be overloaded for any object. 

Another useful "algebraic" property of languages like C++ is the possibil- 
ity of type conversion. It is possible to write expression like x := 2* (l + 2*i) 
instead of x := Complex(2, 0)*Complex(l, 2) because real numbers like 2 will 
be converted to (Re : 2, Im : 0) of type Complex by constructor Complex(x 
: Number). 

3 Functional Programming (FP) 

The FP languages like LISP were one of the first tools for symbolic manip- 
ulation and artificial intelligence (AT). One of advantages of LISP for such 
applications is list data structure. On the other hand lists also can be simple 
defined in most of modern imperative languages. 

Another advantage of FP is the clear functional structure of programs 
0]. In FP the whole program is considered as composition of functions. 
The "pure" functions are transformations of argument to result and do not 
depend on some global external variables, unlike the functions and procedures 
in most of programming languages. 

Due to the pure functional structure in most of FP languages there are 
very powerful possibilities of construction and evaluation of new functions at 
run time. It is possible to construct a new function as some special structure 

1 Within exampes comments are inclosed in brackets: '{' and '}' 
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and perform it by using a special operator like EVAL in LISP. This property 
is very useful for AI due to possibility of "learning" by constructing of new 
algorithms. In symbolic manipulation the building of new functions is nec- 
essary for interpretation of symbolic expressions related with some variables 
and operations. For example, the string like abc often means OP(a,OP(b,c)) 
there OP is some function and it is necessary to have the ability to perform 
these OP operations when values have been assigned to the variables a, b or 
c. 

4 Combination of OOP and FP styles 

The FP and OOP languages are mentioned above are universal languages. 
Any algorithm that has been written by using one of them can be rewritten 
by using any other universal language. The only problem is complication. 

For example, it is possible to define Polynomial = Ohject(Algebra) 
and overload operators V and '+' for working with symbolic expressions for 
polynomials in OOP languages like C++. 

There some synthesis OOP and FP is possible because both these ap- 
proaches have tendency to unification of data structures and algorithms. In 
OOP data fields and methods of manipulation with these data are encapsu- 
lated in common structure: an object. Basic elements of FP are functions, 
but the same structure like (add 1 x) can be treated either as a data (the list 
with three elements: add, 1, x) or, as the body of a function (the addition 
of 1 to x). 

From point of view of OOP the functions in FP can be considered as 
special type of functional objects. It was mentioned above that such "lazy 
functions" are essential for symbolic manipulation. It can be useful to add 
this conception to OOP. Internal realization of such function is some FP 
Object: 

FP-f 'unction = Object (FP_Object) 

Arg : Arguments; 

function Evaluate : Result; 
end ; { FP_f unction F (Arguments) : Result } 
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4.1 Type checking 

We should also to save the clear principles of types in OOP. For example, the 
expression y := 3*(x + l) must be valid. It means that type of 3 (integer) is 
compatible with functional object (Arg:(l,x),+) i.e. any functional object has 
type compatible with type of result of the function. The variable x in this 
expression does not have an assigned value. Such kind of objects are useful 
for symbolic manipulation and it has used in FP or logical programing, but 
it lack of in usual imperative OOP languages. We should distinguish such 
variable and variable with value, but both types must be compatible. 

For using of the FP principles in are introduced some extensions of 
types. Usually if we have some variable of type T we can assign to it only 
value of the same or descendant type. In ip ++ there are three variant for 
every type T: value of T, variable of T, and functional object of T. For 
example: 

var 

a, b,c,d: integer; { a,b,c,d: integer variable } 

a := 1; { a : integer value } 

b := c + d; { b : integer functional object } 

4.2 Algebraic example 

After such extension we can continue an analogy with language of mathe- 
matics. We can describe property of distributivity for object Algebra. 

function Algebra. infix * (A, B : Algebra) : Algebra; 
par 

~C,D,E,F : Algebra; 
begin 

if A = C + D then {i.e. A is record (+,C,D) } 
Return := C * B + D * B 
else 

\$B = E + F then Return := A*E + A*F 
else Return := fail 
end ; 

The fail is value compatible with all types. In OOP it is useful for 
inheritance. For example, for object Complex is possible to write: 
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function Complex. infix * (A, B : Complex) : Complex; 
begin 

Return := Algebra. (A * B); { Inherited method for algebraic expres- 
sions } 

if Return = fail {No - Directly perform the multiplication } 
then Return := (A. Re * B.Re — A.Im * B.Im, A. Re * B.Im + A.Im * 
B.Re) 
end ; 

After such definition we can freely use the same operation for manip- 
ulation with algebraic expression and with usual complex numbers. The 
calling of inherited part of method is managed with algebraic transforma- 
tions like distributivity + x) *i — >i*i + i*x) and another part perform 
usual complex multiplication (i*i + i*x—> —l+i*x). 
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